library(ggplot2)
library(dplyr)
ggplot(airquality |> mutate(Temp= (Temp - 32) * 5/9), aes(Temp, Ozone)) +
geom_point(color = "steelblue", size = 2, alpha = 0.7) +
geom_smooth(method = "loess")+
labs(
title = "Relação entre Temperatura e Ozono",
subtitle = "Dados do ar em Nova York",
x = "Temperatura (°C)",
y = "Níveis de Ozono (ppb)"
)+
theme_minimal()+
theme(plot.title = element_text(face = "bold"))